home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm2 / ftp-gui.lha / FTP-Guide / ftpput < prev    next >
Text File  |  1995-10-15  |  988b  |  31 lines
  1. /* $VER: FTPPUT v1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se
  2.  *
  3.  * IMPORTANT: You MUST have FTPMOUNT installed which makes any ftp site
  4.  *            a part of amigados. Look at aminet:pub/disk/ftpmount.lha
  5.  *
  6.  */
  7.  
  8. parse arg source dest
  9.  
  10. call addlib('rexxreqtools.library',0,-30,0)
  11. call addlib('rexxsupport.library',0,-30,0)
  12.  
  13. if source = '' then source=rtfilerequest('','','Select file to send...')
  14. if source ~= '' & dest = '' then dest=rtfilerequest('ftp:','','Send file(s) to a site...')
  15. if dest = '' then dest = '""'
  16.  
  17. if source = '?' | source = '' then do
  18.     say 'FTPPUT V1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se'
  19.     say ''
  20.     say 'USAGE: ftpput [source] [ftp:address/path/file]'
  21.     say ''
  22.     say 'Example: ftpput work:trashcan/myfile.lha ftp:ftp.luth.se/pub/aminet/new'
  23.     say ''
  24.     say 'If anything is omitted, a reqtools requester will appear..'
  25.     say 'Its also possible to use wildcards...'
  26.     exit
  27.     end
  28.  
  29. address command 'makedir 'dest
  30. address command 'copy 'source' 'dest
  31.